home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)G / (A)G10.ADF / BasicTimers / timer6sec (.txt) < prev   
AmigaBASIC Source Code  |  1989-03-16  |  424b  |  23 lines
  1. '60 SECOND TIMER
  2. '6 sec intervals total 62 +- sec
  3. CLS
  4. PRINT TIME$
  5. STRT:
  6. IF RIGHT$ (TIME$,1) <> "0" THEN STRT
  7. PRINT TIME$
  8.  
  9. FOR t=1 TO 10
  10.  
  11. FOR d = 1 TO 4000
  12. b=b-STRIG(2)
  13. NEXT d
  14.  
  15. PRINT TIME$,b,b/6 "Hz"
  16. m=m+b
  17. b=1
  18. NEXT t
  19. PRINT m"Rpm",,m/60 "Hz"
  20. 'SEE HOW MANY TIME$ HAVE ZEROES ON END
  21. 'REM DID WE USE ALL OF THE MINUTE?
  22. 'ANY BLANK LINES ABOVE ALTERS TIMING
  23.